Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/tool.dxr/00021_é©ìÆëIë.ls

Text File | 1999-03-23 | 444 b | 22 lines

property ppus
global gpartslist, gpussylist

on beginSprite me
  set ppus to 0
end

on btncmd me
  if gpussylist <> [] then
    set ppus to ppus + 1
    if ppus > count(gpussylist) then
      set ppus to 1
    end if
    set act to getAt(gpussylist, ppus)
    tell getAt(the windowList, 1)
      sendSprite(act, #mouseDown)
    end tell
  else
    alert("ﾃ‡ﾂｱﾃ‡ﾃεｩﾂ ﾃｪ^ﾃ‡ﾃ陛ｪﾃｿﾃ‡ﾃ凝ｩﾃ甘‡ﾃ暗ｨﾃ催ｨﾃ､ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③")
  end if
end